/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / blitzbasic21 / examples / stevemc / circles.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |;=======|========|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 00 3b 20 44 72 61 77 | 20 61 20 6e 69 63 65 20 |=.; Draw| a nice |
|00000050| 6c 69 74 74 6c 65 20 63 | 69 72 63 6c 65 20 70 61 |little c|ircle pa|
|00000060| 74 74 65 72 6e 2e 2e 2e | 2e 00 3b 20 57 72 69 74 |ttern...|..; Writ|
|00000070| 74 65 6e 20 62 79 20 53 | 74 65 70 68 65 6e 20 4d |ten by S|tephen M|
|00000080| 63 4e 61 6d 61 72 61 20 | 6f 66 20 4c 65 61 64 69 |cNamara |of Leadi|
|00000090| 6e 67 20 45 64 67 65 20 | 53 6f 66 74 77 61 72 65 |ng Edge |Software|
|000000a0| 00 3b 00 3b 20 4e 65 65 | 64 73 20 74 6f 20 61 6c |.;.; Nee|ds to al|
|000000b0| 6c 6f 63 61 74 65 20 61 | 20 4c 4f 54 20 6f 66 20 |locate a| LOT of |
|000000c0| 63 68 69 70 20 6d 65 6d | 20 28 32 35 36 30 30 30 |chip mem| (256000|
|000000d0| 20 62 79 74 65 73 21 29 | 2e 00 3b 20 4f 6e 6c 79 | bytes!)|..; Only|
|000000e0| 20 72 75 6e 20 69 66 20 | 79 6f 75 20 68 61 76 65 | run if |you have|
|000000f0| 20 74 68 69 73 20 6d 65 | 6d 6f 72 79 20 66 72 65 | this me|mory fre|
|00000100| 65 20 74 6f 20 61 6c 6c | 6f 63 61 74 65 2c 20 6f |e to all|ocate, o|
|00000110| 72 20 65 6e 73 75 72 65 | 00 3b 20 72 75 6e 74 69 |r ensure|.; runti|
|00000120| 6d 65 20 65 72 72 6f 72 | 73 20 61 72 65 20 4f 4e |me error|s are ON|
|00000130| 2e 00 3b 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..;=====|========|
|00000140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000170| 3d 3d 3d 00 00 80 01 20 | 2e 63 6f 6f 72 64 00 20 |===.... |.coord. |
|00000180| 20 78 2e 77 20 3a 20 79 | 2e 77 00 80 02 20 80 01 | x.w : y|.w... ..|
|00000190| 00 00 80 04 20 73 6e 2e | 71 28 33 35 39 29 2c 63 |.... sn.|q(359),c|
|000001a0| 6e 2e 71 28 33 35 39 29 | 2c 70 6f 6c 79 67 6f 6e |n.q(359)|,polygon|
|000001b0| 2e 63 6f 6f 72 64 28 34 | 29 00 00 80 04 20 70 6f |.coord(4|).... po|
|000001c0| 6c 79 67 6f 6e 2e 63 6f | 6f 72 64 28 34 29 00 00 |lygon.co|ord(4)..|
|000001d0| 80 08 20 44 72 61 77 54 | 72 69 61 6e 67 6c 65 73 |.. DrawT|riangles|
|000001e0| 20 7b 61 6e 67 67 2e 77 | 2c 72 61 64 69 69 31 2e | {angg.w|,radii1.|
|000001f0| 77 2c 72 61 64 69 69 32 | 2e 77 2c 63 6f 6c 2e 77 |w,radii2|.w,col.w|
|00000200| 7d 00 2e 4d 79 44 72 61 | 77 54 72 69 3a 00 20 20 |}..MyDra|wTri:.  |
|00000210| 80 15 20 73 6e 28 29 2c | 63 6e 28 29 2c 70 6f 6c |.. sn(),|cn(),pol|
|00000220| 79 67 6f 6e 28 29 00 20 | 20 80 34 00 20 20 65 6e |ygon(). | .4.  en|
|00000230| 64 61 6e 67 2e 77 3d 61 | 6e 67 67 2b 33 36 30 00 |dang.w=a|ngg+360.|
|00000240| 20 20 80 bb 00 20 20 20 | 20 61 6e 67 67 2b 31 30 |  ...   | angg+10|
|00000250| 00 20 20 20 20 61 6e 67 | 3d 61 6e 67 67 20 3a 20 |.    ang|=angg : |
|00000260| 61 6e 67 3d 61 6e 67 20 | 80 b9 20 33 36 30 00 00 |ang=ang |.. 360..|
|00000270| 20 20 20 20 70 6f 6c 79 | 67 6f 6e 28 31 29 5c 78 |    poly|gon(1)\x|
|00000280| 3d 31 36 30 2b 73 6e 28 | 61 6e 67 29 2a 72 61 64 |=160+sn(|ang)*rad|
|00000290| 69 69 31 00 20 20 20 20 | 70 6f 6c 79 67 6f 6e 28 |ii1.    |polygon(|
|000002a0| 31 29 5c 79 3d 31 32 38 | 2b 63 6e 28 61 6e 67 29 |1)\y=128|+cn(ang)|
|000002b0| 2a 72 61 64 69 69 31 00 | 00 20 20 20 20 61 6e 67 |*radii1.|.    ang|
|000002c0| 32 2e 77 3d 61 6e 67 2b | 35 20 3a 20 80 0b 20 61 |2.w=ang+|5 : .. a|
|000002d0| 6e 67 32 3e 33 35 39 20 | 80 21 20 61 6e 67 32 2d |ng2>359 |.! ang2-|
|000002e0| 33 36 30 00 20 20 20 20 | 70 6f 6c 79 67 6f 6e 28 |360.    |polygon(|
|000002f0| 32 29 5c 78 3d 31 36 30 | 2b 73 6e 28 61 6e 67 32 |2)\x=160|+sn(ang2|
|00000300| 29 2a 72 61 64 69 69 32 | 00 20 20 20 20 70 6f 6c |)*radii2|.    pol|
|00000310| 79 67 6f 6e 28 32 29 5c | 79 3d 31 32 38 2b 63 6e |ygon(2)\|y=128+cn|
|00000320| 28 61 6e 67 32 29 2a 72 | 61 64 69 69 32 00 00 20 |(ang2)*r|adii2.. |
|00000330| 20 20 20 61 6e 67 32 2e | 77 3d 61 6e 67 2d 35 20 |   ang2.|w=ang-5 |
|00000340| 3a 20 80 0b 20 61 6e 67 | 32 3c 30 20 80 21 20 61 |: .. ang|2<0 .! a|
|00000350| 6e 67 32 2b 33 36 30 00 | 20 20 20 20 70 6f 6c 79 |ng2+360.|    poly|
|00000360| 67 6f 6e 28 33 29 5c 78 | 3d 31 36 30 2b 73 6e 28 |gon(3)\x|=160+sn(|
|00000370| 61 6e 67 32 29 2a 72 61 | 64 69 69 32 00 20 20 20 |ang2)*ra|dii2.   |
|00000380| 20 70 6f 6c 79 67 6f 6e | 28 33 29 5c 79 3d 31 32 | polygon|(3)\y=12|
|00000390| 38 2b 63 6e 28 61 6e 67 | 32 29 2a 72 61 64 69 69 |8+cn(ang|2)*radii|
|000003a0| 32 00 00 20 20 20 20 bb | 8b 20 33 2c 26 70 6f 6c |2..    .|. 3,&pol|
|000003b0| 79 67 6f 6e 28 31 29 2c | 63 6f 6c 00 20 20 80 bc |ygon(1),|col.  ..|
|000003c0| 20 61 6e 67 67 3d 65 6e | 64 61 6e 67 00 80 02 20 | angg=en|dang... |
|000003d0| 80 08 00 00 2e 53 74 61 | 72 74 55 70 3a 00 80 35 |.....Sta|rtUp:..5|
|000003e0| 00 80 16 20 68 2e 6c 3d | 30 20 80 18 20 35 00 20 |... h.l=|0 .. 5. |
|000003f0| 20 d0 01 20 30 2c 33 32 | 30 2c 32 35 36 2c 35 00 | .. 0,32|0,256,5.|
|00000400| 80 17 20 68 00 00 3b 00 | 3b 20 73 69 6d 6f 6e 20 |.. h..;.|; simon |
|00000410| 77 61 73 20 68 65 72 65 | 2c 20 62 75 74 63 68 65 |was here|, butche|
|00000420| 72 65 64 20 74 6f 20 73 | 61 76 65 20 64 69 73 6b |red to s|ave disk|
|00000430| 20 73 70 61 63 65 2e 2e | 2e 00 3b 00 20 dd 81 20 | space..|..;. .. |
|00000440| 22 70 6c 65 61 73 65 20 | 77 61 69 74 2e 2e 2e 22 |"please |wait..."|
|00000450| 00 20 80 2c 20 d0 01 20 | 30 00 20 80 16 20 72 3d |. ., .. |0. .. r=|
|00000460| 31 36 30 20 80 18 20 31 | 20 80 19 20 2d 31 00 20 |160 .. 1| .. -1. |
|00000470| 20 20 63 3d 72 20 80 b9 | 20 35 35 3a 63 20 2a 20 |  c=r ..| 55:c * |
|00000480| 33 30 2f 35 35 3a 80 0b | 20 63 3e 31 36 20 80 21 |30/55:..| c>16 .!|
|00000490| 20 63 3d 33 32 2d 63 00 | 20 20 bb 82 20 31 36 30 | c=32-c.|  .. 160|
|000004a0| 2c 31 32 38 2c 72 2c 63 | 00 20 80 17 00 3b 00 3b |,128,r,c|. ...;.;|
|000004b0| 00 3b 00 00 80 16 20 68 | 2e 6c 3d 31 20 80 18 20 |.;.... h|.l=1 .. |
|000004c0| 35 00 20 20 d0 05 20 30 | 2c 68 00 80 17 20 68 00 |5.  .. 0|,h... h.|
|000004d0| 00 80 16 20 68 3d 30 20 | 80 18 20 33 35 39 00 20 |... h=0 |.. 359. |
|000004e0| 20 61 3d 28 68 2a 80 ba | 29 2f 31 38 30 00 20 20 | a=(h*..|)/180.  |
|000004f0| 73 6e 28 68 29 3d e0 0a | 28 61 29 00 20 20 63 6e |sn(h)=..|(a).  cn|
|00000500| 28 68 29 3d e0 05 28 61 | 29 00 80 17 20 68 00 00 |(h)=..(a|)... h..|
|00000510| 80 2c 20 d0 01 20 30 00 | c7 02 20 30 00 00 80 16 |., .. 0.|.. 0....|
|00000520| 20 68 3d 30 20 80 18 20 | 31 35 00 20 20 ce 0a 20 | h=0 .. |15.  .. |
|00000530| 30 2c 68 2c 68 2c 68 2c | 30 00 20 20 ce 0a 20 30 |0,h,h,h,|0.  .. 0|
|00000540| 2c 33 31 2d 68 2c 31 35 | 2d 68 2c 31 35 2d 68 2c |,31-h,15|-h,15-h,|
|00000550| 31 35 2d 68 00 80 17 20 | 68 00 00 80 16 20 68 3d |15-h... |h.... h=|
|00000560| 30 20 80 18 20 35 00 20 | 20 80 2b 20 d0 01 20 39 |0 .. 5. | .+ .. 9|
|00000570| 00 20 20 bb 8c 20 68 2c | 39 2c 25 31 30 30 30 30 |.  .. h,|9,%10000|
|00000580| 00 20 20 80 2c 20 d0 01 | 20 39 00 20 20 44 72 61 |.  ., ..| 9.  Dra|
|00000590| 77 54 72 69 61 6e 67 6c | 65 73 20 7b 30 2b 68 2b |wTriangl|es {0+h+|
|000005a0| 68 2c 32 30 30 2c 31 32 | 38 2c 31 7d 00 20 20 44 |h,200,12|8,1}.  D|
|000005b0| 72 61 77 54 72 69 61 6e | 67 6c 65 73 20 7b 33 36 |rawTrian|gles {36|
|000005c0| 30 2d 68 2d 68 2c 31 32 | 37 2c 38 30 2c 31 7d 00 |0-h-h,12|7,80,1}.|
|000005d0| 20 20 44 72 61 77 54 72 | 69 61 6e 67 6c 65 73 20 |  DrawTr|iangles |
|000005e0| 7b 30 2b 68 2b 68 2c 37 | 39 2c 34 30 2c 31 7d 00 |{0+h+h,7|9,40,1}.|
|000005f0| 20 20 44 72 61 77 54 72 | 69 61 6e 67 6c 65 73 20 |  DrawTr|iangles |
|00000600| 7b 33 36 30 2d 68 2d 68 | 2c 33 39 2c 31 30 2c 31 |{360-h-h|,39,10,1|
|00000610| 7d 00 80 17 20 68 00 00 | 80 34 00 c7 82 20 30 2c |}... h..|.4... 0,|
|00000620| 34 34 2c 32 35 36 2c 24 | 35 2c 38 2c 33 32 2c 30 |44,256,$|5,8,32,0|
|00000630| 00 c7 84 20 30 2c 30 00 | c7 86 20 30 2c 30 00 c7 |... 0,0.|.. 0,0..|
|00000640| 83 20 30 00 00 64 62 75 | 66 66 65 72 3d 31 00 80 |. 0..dbu|ffer=1..|
|00000650| bb 00 20 20 64 62 75 66 | 66 65 72 2b 31 20 3a 20 |..  dbuf|fer+1 : |
|00000660| 80 0b 20 64 62 75 66 66 | 65 72 3e 35 20 80 21 20 |.. dbuff|er>5 .! |
|00000670| 64 62 75 66 66 65 72 3d | 31 00 20 20 c7 84 20 30 |dbuffer=|1.  .. 0|
|00000680| 2c 64 62 75 66 66 65 72 | 00 20 20 80 37 20 32 00 |,dbuffer|.  .7 2.|
|00000690| 80 bc 20 df 04 28 30 29 | 00 80 02 00 00          |.. ..(0)|.....   |
+--------+-------------------------+-------------------------+--------+--------+